home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_43_move window script.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  448 b   |  18 lines
  1. on mouseEnter
  2.   cursor([412, 413])
  3.   put "Click and drag to move window." into field "status"
  4. end
  5.  
  6. on mouseLeave
  7.   cursor(0)
  8.   put EMPTY into field "status"
  9. end
  10.  
  11. on mouseDown
  12.   PTLeft = the mouseH
  13.   PTTop = the mouseV
  14.   repeat while the mouseDown
  15.     (the stage).rect = rect(the mouseH + the stageLeft - PTLeft, the mouseV + the stageTop - PTTop, the mouseH + the stageLeft - PTLeft + 800, the mouseV + the stageTop - PTTop + 600)
  16.   end repeat
  17. end
  18.